10 DATA162,255,142,032,208,202,165,203
20 DATA201,060,240,005,208,244,076,000
30 DATA192,96
40 FORN=49152TO49169:READW:POKEN,W:NEXT
300 PRINTCHR$(147):POKE53280,11:POKE53281,11:PRINTCHR$(14)
302 PRINT"[156][215]AS, GLAUBST [196]U, KOMMT JETZT NOCH?":TI$="000002":WAIT161,1:PRINT"[147]"
304 POKE19,64:PRINT"[200][197]!  [215]ARUM SCHWEIGST [196]U?":POKE161,0:POKE162,0:WAIT161,1
306 PRINT"[147][150]    [215]AS IST, WEISST [196]U'S ODER NICHT?    ";
308 TI$="000003":WAIT161,1
310 PRINT"[147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162] [193][200][193]! [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
312 PRINT"[155]         [196]U WEISST ES ALSO NICHT!      ";:POKE161,0:POKE162,0:WAIT161,1
314 PRINT"[147][153]         NUN KOMMT NUR NOCH DAS        [146]"
316 LETA$="           [197][159][206][156][196][158][197][129]!"
318 FORL=1TO20:LETB$=RIGHT$(A$,L):PRINTB$
320 NEXTL
350 SYS49152